home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / breakdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  487 b   |  19 lines
  1. program BreakDemo;
  2. var
  3.   Foo: Integer;
  4. begin
  5.   while True do
  6.     begin
  7.       repeat
  8.         WriteLn ('Enter a number less than 100:');
  9.         ReadLn (Foo);
  10.         if Foo < 100 then
  11.           Break;             { Exits repeat loop }
  12.         WriteLn (Foo, ' is not exactly less than 100! Try again...')
  13.       until False;
  14.       if Foo > 50 then
  15.         Break;              { Exits while loop }
  16.       WriteLn ('The number entered was not greater then 50.')
  17.     end
  18. end.
  19.